home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).adf / Redcode / Mausefalle < prev    next >
Text File  |  1990-09-11  |  596b  |  21 lines
  1. ; Mausefalle
  2. ; ----------
  3.  
  4. num             DAT 2660
  5. falle           SPL *                   
  6.                 JMP falle               
  7. anzahl          DAT 798                
  8. offset          DAT 0
  9. grube           JMP -3
  10. start           SUB #10, offset      
  11.                 ADD #10, grube         
  12.                 MOV grube, @offset      
  13.                 DJN start, anzahl
  14. end             MOV #-4, anzahl
  15. kill            MOV #0, @anzahl
  16.                 SUB #3, anzahl
  17.                 DJN kill, num
  18.                 MOV #0, falle           
  19.                 MOV #2660, num
  20.                 JMP end   
  21.